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-title pli$rmsbis - pl/i rms built-in subroutines _ 
eident /1-003/ ; Edit BLS0294 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED gag LICENSE AND MAY BE USED AND og 
Y IN ACCORDANCE WITH THE TERMS OF SUCH ce AND WITH THE 
tiie tt OF THE ABOVE Spittal NOTICE. THIS SOFTWARE OR ANY OTHER 
E 


HE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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LARA RASRSASARASEAAALASLALALASALA LARA SERSAA SARA SARA AARRRERRRA RASA SAAR A SDDS SD OD 


pelo fo lo lo folololololololololo lol elolelololololololelololeiq) 


COOQOQoCooCoooQooQoooooooooooo OOCoCo 


jw leleleleleleleleleleleleleloleleololelolelelololaleloleol ola) 


NOU EWR OOO NA UE WR 0 OD NAME WN 0 OONOAU EWN OO OONAU EWN OWONOUS Wh 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 : s 
$ " tastiters 
3 VAX/VMS PL1 runtime Library 
0000 3 
0000 3 abstract: 
0000 3 
0000 3 This module contains the pl1 runtime routines for the RMS built-in 
0000 3 subroutines. 
0000 3 
0000 3 author: c. spitz 8-may-1980 
0000 ; ; ; 
0000 Modifications: 
0000 4 
0000 4 : 
44 ? 1-002 Bill Matthews 29-September-1982 
444 ? Invoke macros $defdat and rtshare instead of $defopr and share. 
0000 4 1-003 Benn Schreiber 6-APR-1984 
0000 4 Zero XAB's before use. 
0000 48 ;-- 
0000 4 
0000 50 ; seghihy' 
0000 51; external definitions 
0000 Sa 3 : : 
0000 5 $deffcb sdefine file control block 
0000 5 $rabdef sdefine rab offsets 
000 5 $fabdef :define fab offsets 
000 2 $Snamdef tdefine nam offsets 
000 S$devdef sdefine device bit offsets 
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PACA 


$defdsp 
$defda 
$xabde 
$xabprodef 
$xabdatdef 
Sxabfhcdef 


rtshare 


"SSEP=1986 17:49:59 


sdefine 
sdefine 
sdefine 
sdefine 
idefine 
sdefine 
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file display block 
operand node data types 
xab offsets 

protection xab 

date xab 

file header char xab 


Page (fy 


0058 8F 00 6€ 


56 = 04 AC 
57 = 08 AC 


00000000 GF 
00000121 8F 


0B OE 


87 ~=— 0121 
08 AC 


50 00000000° 
52 


0 

58 O0A6 

5962 A 

55 OOF 6 
1D OC A6 


00000000 ' GF 
OC A6 
50 eccogges" 


A 
0 
5 
5 
1 
A 
1 
8 
5 
0 
8 
5 
35 
C 
5 
0 
0 
5 
0 
0 
8 
5 
a 

3 

0 

3 

; 

5 

8 

> 


56 


2c 6400 =«(6E 


24 A 
5E 00000058 
50 


OOOM HMIMOWIODOMOALO7N CSS Sl NeoO we RS NTO OF 


Oo 


= pl/i rms built-in subroutines 


$display - dis 


SETI RSH TE MSA IRBs ans” 


lay file attributes 


DOooooo 


: routine displays the attributes of a pli file. if the fil 
[2 sgenes with declare time attributes. the users display b 
ed in. 


(ap) = number of arguments = 3 
(ap) = address of file control block 
(ap) = address of users displa <A block 
2(ap) = size/prec of display bloc 
Raa - data type of display opel 


rw 


OOOO CCOCOCoCOoOOoOCOCoooooooooooo 
1D eh bb hehe Lal ~~ lealelealelalelelelealelelea) 
MEWS OD NAME WN OWOONAUS WOOO 


SOOO COOCOOOCOOOOOOOOoCoOoOOoO 


So 


—OO—-OOoOn)- O- ODT CON 
uw 
wn 


WOO -080 -@-omanvcVv970”: 


HD CO MONS MD & MOA LS MO NWMD OO MHA LOM NLS POMWOOCOCOCOCOCOOCOOCOCOOCOO 
N“N 
wn 


OOoOCSCCOOCOOOSSOCOSOOOSOOSOoOOoOoOoOooOo 
O00 09 0000 09 SII NNO OA UTI  & EAA 


o 
oO 
NMNMNNIN eS SO OO SS SM OOOO OOCOCOCO NO a oratata rate iaacitatcehseatanatpdoerdeneibaan 


SOOoCoooooooooooooooooooooooooeo 
so 
FW OOONAUE WN" OOONOUS WM -OOon 


a ss a ts a hd a ss tt 


outputs 
the users display block is filled in with the files current attributes. 


entry p) TSdtepley.” m<r2,r3,74,75,r6.r7,78,79,r10,r11> 
movl 4(ap).ré6 
mov 8(ap),r7? 


get address of fcb 
sget address of dsp 


pushl ap : spush size and data type 
calls a8 pli$S$bytesize calculate byte size 

blbc r0,5$ :if invalid data type, fail 
cmpl r1,#dspend suser block sarge enough? 
blss :if lss, no 

cmpw 14: ap) ,#dat_k_char_var ichar var Block? 

bneq 34 no, cont 


movw - 7 end, (r7)+ 


tothe : ze for char var 


~% (ap) —, correct address of display 
ft 

mov | rig invdatyp,r0 tact * semal'te data type 

movl sset fcb addr 

brw fail zand fa 

movab  fcb_b.. fab(r6),r8 sget address of fab 

movab fcb_b_rab(r6),r9 :get address of rab 

movab fcb_b_nam(r6),r5 Le oqerene of nam 

mov l r7,rit op dsp address 

bbs #atr_v_opened, fcb_l _attriré 108" sif file opened, cont 
pushl #0 sset no implied attributes 
pushl iset Ay 


6 
calls #2,9 


“pliSopen ;open e fi le 
bbs ait v_opened, fcb_l _attr(r6), 168°; ;if file still not opened 
mov | apis. open,r0 rset open failure 
movl r6,r2- scopy fcb addr 
brw tal sand fail 


l 
subl #xabSk _datlen,sp 


pushr Pace, r3,r4,r5> Sav 
sp) .#0, weabsk _datleniir0) :zero xab 
popr erat r3,r4, 


movb #xab$c “dat 
movb #xab$t “dat 


mov l Sat fab$l_xab(r8) 
subl #xab$k _prolen,sp 


pushr a acre 4” r4,r 


:get room for date xab 
;Save xab address 
e registers 


xabsb codi ep) sset xab type 
en,xab$b_bln(sp) ;set xab Length 


; Save addr of date xab 

slink date xab to fab 
iget room for protection xab 
;Save xab address 

save registers 


OrAiapsh _prolen, (r0) ;zero xab 


Soa 
wupr he ee r3, r4,r5> 
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6— 13 9 A 125 movb #xab$c_pro,xab$b_cod(sp) ;set xab 
01 AE 58 gf 35 QOS 1 § movb est -brolen, xab$b “pintsp) zset Bg | Length 
SA —E oO OAD 1 movl id pave s addr of protection xab 
04 A2 SA OD 0B0 128 mov 6, xab$l _nxt(r2) ;link protection xab to date xab 
2f cs © 0B4 129 subl Wrabsk.. fhélen, ns iget room for file header char xab 
5 : . $4 } 9 neve sp. cr2, "} —— S se eerees 
usher m<r2,r registers 
60 2C 00 6€ 9° 2c 008¢ 1 ¢ hoves #0" spd 76, iis BBk. fhelen, tr0) saere xab 
C BA 00C 13 popr #n<re,r3,r 
6— 1D 90 O00C& 134 movbd #xabSc_ fhe xabsb godt sp) sset xab typ 
01 AE C 90 O0C7 135 movb — k-fhelen,xabSb_ bln¢ $P) Ak ses xa PT engt th 
04 AA —E 00 Bece 1 § mov l p,xab ten xt(r c xab fe. rotection xab 
04 AE D4 OOCF 1 clrl rabst nxt (sp) ry AL. xab | 
00D2 138 $display. (r iget the info 
24 A8 D4 OODB 139 clrl tabel. t xab(r8) unlink xab's from fab 
OD 50 E€8 OODE 140 blbs lbs, cont 
50 00000000'°8F DO O0E1 141 mov | nels. rmsf,r0 iset fab error 
52 56 00 OQOE8 126 mov sset fcb addr 
02A7 31 «ODER. s«14 brw fail sand fail 
8B 3C AmB O3C Boes 144 15$: movzwl fbsy _bls(r8),(r11)+ zset block size 
8B 3E A8 9A OOF 145 movzbl fab$b_bks(r8),(r11)+ zset bucket size 
8B 14 A2 7D OQOOF6 146 movq xab$q_cdt(r2),(r11)+ :set creation date 
8B 1C A2 7D OQOOFA 147 movqg xab$q_edt(r2),(r11)+ :set expiration date 
8B 14 A8 3C OOFE 148 movzwl fab$w_deq(r8),(ri1)+ sset extension size 
68 14A5 16 28 Q102 £149 moves #22,nam$t_dvi(r5),(r11) ;set file id and dvi 
58 18 AB 9E 0107 150 movab 24(r11),rT1 ‘update pointer in dsp 
8B OC AE 00 0108 151 mov l xab$l_hbk(s »,(r11)+ sset file size 
8B SF AB) 9A 010F 13 movzbl fab$b_fsz(r8),(r11)+ zsset fixed control size 
8B 35 A9 QA 0113 15 movzbl rab$b_krf(r9),(r11)+ zset index number 
8B 38 A8 D0 0117 154 mov l fab$l-mrn(r8),(r11)+ zset maximum record number 
88 $$ ASB 3C O11B 155 movzwl fab$w_mrs(r8),(r11)+ set maximum record size 
88 7A9 QA O11F 156 movzbl rab$b_mbc(r9),(r11)+ zsset multiblock count 
88 36A9 9A 0123 157 movzbl rab$b_mbf(r9),(r11)+ zset multibuffer count 
8B OF AA 3C 0127 158 movzwl xab$w “grp(r105,(r11)+ zset owner group 
8B OC AA 3C QO12B 159 movzwl xab$w_mbm(r10),(r11)+  ;set owner member 
8B 1C AB 9A O12F 160 movzbl fab$b_rtv(r8),(r11)+ sset retrieval pointers 
8B 2AA6 3C 0133 161 movzwl fcb_w_linesize(r6),(r11)+ ;set Linesize 
8B $5 A6 3C 0137 ~ 162 movzwl fcb_w_pagesize(r6),(ri1)+ ;set pagesize 
88 32 A6 3C 0138 163 movzwl fcb-w-page(r6),(ri{)+ ;set page number 
8B 30 A6 C O13F 164 movzwl fcb_w_line(r6),(r11)+  ;set Line number 
8B 2E A6 C 0143 165 movzwl fcb_w ~column(ré) (r11)+ ;set column number 
8B 3C A6 GA 0147 166 movzbl fcb_b “numkcbs(r6),(r11)+ ;set number “ i. 
68 7C 0148 167 clrq (r1T)~ sclear all of d 
CB 0140 168 bicl3 #*c<fab$m_sup! fabSm_tmp! - ;get ta tins temporary 
14E 169 fab$Sm_dfw'fabSm_rwot - ;deferred_write, rewind_on_open 
QO14E 170 fab$m_pos!fab$m_wck! - ;current_position, write_check 
O14E 171 fab$moruci fab$m-s l\! = ;rewind_on_close, spoo 
014E 178 fabSm_scf!fab$m_dit! - ;batch, deTete 
O14E 17 ab$m_ctg!fab$m_cbt! - :cont iguous, contiguous_best_try 
Bee 174 fab$m_rck!fab$m_tef>,- ;read_check and truncate bits 
6B 04 AB’ EF4FI453 BF 14—E 175 fab$l-fop(r8),(F11) : from” fop and set in display 
OD 04 EF 0156 178 extzv #atr_V_update,#<atr_v_ indexed+1-atr _v_update>,- ;get bits from 
50 OC A6 0159 +17 foot tT atte (re rd feb attributes 
1D 50 FO Q15C 178 insv Rdtr_v_update nsert them : 
6B OD 15F = 179 #<dtr_v_ind xed+{-dtr_ v ipdate>, (ri1) ;in display 
51 EA 9A 0161 130 movzbl fab$b_rat(r8),r get rat from fab 
oS 3 8 EF 0165 181 extzv  #fab$i_ftn,#1,r1,r0 get ftn from rat 
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68 1 00 50 FO QI16A 1 insv r0,#dtr_v_fortran_format,#1,(r11) ;set fortran format 
50 9} 1 4 EF 1¢f 188 extzv  #fab$v_tr7#i.rior sget cr from rat 
68 3 6 FO 0174 184 insv r0,#dtr_v_carriage_return_format,#1,(r11) ;set carriage return 
59 1 1 2 EF 0179 185 extzv _ #fab$v_prn,#1,ri,r :det prn from rat 
68 4 12 FO 4; 196 insv r0,#dtr_v_printer_format,#1,(r11) ;set printer format 
50 1 4 9 EF 18 18 extzv  #fab$v_BLk,#1,r1,7r0 iget blk from rat 
6B 01 1 QO FO Q0188 188 insv r0,#dtr v block boundary’ format #1 (r11) set block boundary 
50 16 A8 01 92 EF o180 189 extzv #fab$v_Bid,#1,fab$b_fac(F8),r0 ;get bio from fac 
68 01 04 0 FO 019 190 insv r0,#dtr_v_block_i0,41,(r11) ;set block io 
1F AB «O01 O91 (0198S: 191 cmpb #fab$c_Fix, fabSB_rfm(rs) :fixed length records? 
07 i 19¢ 13 bneq 16$ zif neg no, cont 
68 000004600 8F C 15 19 bisl #dtr_m_fixed_length_records,(r 1) rset fixed Length records 
50 OC AB O01 15 34 1A 194 168: extzv #atr_v_app_comma,#1,fcb_l_attr(r6),r0 ;get append comma 
50 3650 : O1AB «195 mcomb r0,r0 scompliment it 
668 O01 OC 50 F piag 196 insv r0,#dtr_v_ignore_line_marks,#1,(r11) ;set ignore Linemarks 
51 04 A9 DO 018 197 mov l rab$l_roptr9), get rop from ra 
won Se. Se. ee fer”:lUc extzv #rab$v_loa,#1,r1,r0 ;get_loa from rop 
68 01 10 50 FO O1BC 199 insv 0, #dtr_v_initial_fill.#i,(r11) sset initial fill 
50 51 O01 O09 EF O1C1 200 extzv  #rab$v_rah,#1,ri,r get rah from rop 
68 01 16 50 FO Q1C6 201 insv r0,#dtr_v_read_ahead,#1,(r11) ;set read ahead 
50 51 01 OA EF 0O1CB soe extzv  #rab$v_wbh,#1,r1,r get woh from rop 
68 01 13. 50 FO 0100 20 insy 0,#dt?_v_write behind,#1,(r11) ;set write behind 
51 17 A8 90 0105 204 movb fab$b_sfirtr8),r iget shr from fab 
~ Tr SF O!hUW CU Soe extzv  #fab$v_nil,#1,r1,r0 get nil from shr 
68 01 #11 «#50 FO 0106 06 insv 0,#dt?_v_no_share,#1,(ril) ;set no share 
Seow a ee ae 207 extzv #fab$v_shrget,#1.r1,r0 iget shrget from shr 
68 01 18 50 FO Q1E8 208 insv r0,#dtr_v_shared_read,#1,(r11) ;set shared read 
50 51 01 OO EF O1ED 209 extzv #fab$v_shrput,4#1,r1 r6O :get shrput from shr 
68 O01 19 =50 FO OQO1F2 210 nsv r0,#dtr_v shared_write,#1,(r11) s;set shared write 
5B O8 AB 9E OIF?) 211 movab 8(r11),r1T spoint to device bits 
8B 40 A8 00 O1FB si§ mov l fab$l_dev(r8),(r11)+ set device bits 
8B 44 A8 DO OFF 21 movl fab$l_sdc(r8),(r11)+ set spooling device bits 
6B 205145.3 8F DO 0203 214 movi #*a/SEQ /,(r11) gassume seql 
1D AB 10 91 QO20A~ 215 cmpb #fab$c_rel, fab$b_org(r8) ;is it seq? 
0B 19 O20E 216 blss 0$ :if lss. yes, cont 
10 14 0210 217 bgtr 0$ zsif gtr, no, its idx 
6B 20404552 BF DO 0212 218 movi = #*a/REL /, (11) set relative 
07 11 #0219 219 brb 3 zcont 
6B 20584449 8F 00 9518 $59 0$: mov l #*a/10X /,(r11) set indexed 
5B O03 AB YE 0222 21 30$: movab 3(r11),r1f supdate pointer ; ; 
8 AA OF 0226 $56 pushab xab$w_pro(r10) zset addr of protection bits 
08 AC OF 885¢ $$ pushab 8(ap) zset addr of display 
QO0000000'GF O02 FB O22C 24 calls 9579, et 188 rotvcha sprocess protection 
8 AB 9E OS33 § 5 movab 24(r11),r1 spoint to file name 
68 O0F9 C6 98 0237 6 movzbw <fcb_b_namtnam$b_rsl>(r65,(r11) ;set size 
05 12 O023C 227 neq 40$ ;1f neq, cont | 
6B 0101 C6 9B osie 228 movzbw <fcb_b_nam+nam$b_esl>(r6),(r11) sset size 
68 0126 (6 8B 28 0 4 93 40$: move3 (ri13+7fcb_b_esatr6),(r11) sset file name 
04 0249 0 ret sreturn 
asen 1 
4A ¢ p++ 
Ose ; pliSextend - perform explicit extend on a pli file | ! bite 
024A 34 ; this routine extends the disk allocation of a pli file. if the file is 
024A 32 ; closed, it is opened with declare time attributes. the file is then 
0 rn § 3 extended by the required number of blocks. 
4A 35 3 inputs: 
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4A 39 ; O(ap) - number of arguaents (at least 2) 
4A 40 ; 4(ap) - address of file control block 
4A 41 ; 8(ap) = number of blocks to extend the file 
SA tg ; outputs: 
Gh 45 ; none. 
GA 44 ;-- 
0096 4A 45 -entry pliSextend,*m<r2,r3> 
0119 4C ‘$ bsbw check_bis pares. open file 
07 0C A201 0 4F 4 bbs #atr_V_opened, fcb_l _attricay. gs file opened, cont 
O11F 0 8 54 48 bsbw do sopen sqpen Hite’ 
00000020 57 49 -long atf_m_ ee gut 
00B6 C2 O08 AC 00 8 58 50 5$: movl Tgbpb. <te Db fab+fab$l alate 2 eet allocation size 
61 51 Sextend f err8 J tend the file 
04 50 €9 026C 26 blbc . lbc, fail 
50 01 00 OQO26F 5 movl Sset cess 
04 bs 78 254 ret zreturn 
50 00000000'8F DO 027 255 108: mov ae sset rms fab error 
0118 31 Bs on $28 brw fail sand fail 
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027D 59 ;4+ 
7D 60 ; pli$flush - flush plil file 
7D 61 ; this routine flushes a pll file. if the file is closed, no operation 
fp 96 3 occurs. otherwise, all file buf fer rs are flushed. 
0 70 64 ; inputs: 
7D 65 ; Ola p) = number of arguments (at least 1) 
027D 96 $ 4(a 4 - address of file control block 
0270 67 ; outputs: 
027D 68 ; non 
027D 69 ;-- 
009s 8 7D 70 entry pli$flush,“m<r2> 
00E1 0 7F 71 bsbw check_bis pares. open file 
OD OC A2 O01 €E1 bs 86 i bbc #atr 5 sopengd. »fcb_l attrira. és if file not opened, cont 
028 7 $flush fcb_6 ush the file 
0450 €9 0291 74 blbc r0,T0 tif Lbe, fail 
50 01 dO 0294 75 5$: mov l #1,r0 sset success 
04 0297 76 ret : sreturn 
50 00000000°8F 00 os3e 277 10$: mov L #pli$_rmsr,r0 ;set rms rab error 
OOF3 = 31 tH sis brw fail sand fail 
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02A 4 a 
8 A ¢ ; pli$next_volume = perform next_volume processing for a pli file 
A 83 ; this routine performs next volume processing for a pli file. if the file 
Q2A 84 ; is closed, it is opened with declare time attributes. the rms nxtvol 
O2A 85 ; service is then performed. 
O2A 589 : 
O2A 87 ; inputs: 
Q2A 288 ; O(ap) = number of arguments (at least 1) 
os 289 ; 4(ap) - address of file control block 
O2A2 290 ; outputs: 
O2A2 v1 3 none 
RSAs 3 ee . 
O00C O2A 9 sentry pli$next_volume, “m<r2,r3> ; 
C 30 Q2A& 294 sbw check_bis ;check parms, open file 
07 OC A2 01 EQ Q2A7 295 bbs #atr_v_opened,fcb_l_attr(r2),5$ ;if file opened, cont 
30 O2AC 296 bsbw do_open sopen file 
00000000 QO2AF 297 . long use dcl attr 
02B3 298 5$: $nxtvol feb _b rab(r2) smount next volume 
04 50 E—9 OQO2BD 299 blbc r0,10 :if lbc, fai 
DO O2cd 300 mov | #1,r0 set success 
04 O02C3 301 ret = sreturn 
DO 02C4 302 10$: mov #pli$_rmsr,r0 zset rms rab error 
31 O2cB 303 brw ail sand fai 
O2cE 304 


i 
| 
| 
50 
50 00900000'8F 
00C7 
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O2cE 6 337 - eT . 
8 cE Q7 ; pli$rewind - rewind a pli file | ; 3 
cE Q8 ; this routine rewinds a pli file. if the file is closed, it is opened with 
bs te 9 ; declare time attributes. the file is repositioned to its first record. 
O2CcE 11 ; inputs: 
O2cE 1¢ ; O(ap) = number of arguments (at least 1) 
O2cE 3] ; 4(ap) - address of file control block 
OSte 14 ; outputs: 
Cece 315 3 none 
O2CE 316 ;-- 
000C O2cE 317 -entry pliSrewind,*m<r2,r3> t 
0090 30 Q2D0 318 bsbw check_bis1 ;check_ parms, open file 
07 OC A2~ Q1 5 0203 319 bbs #atr_v_opened,fcb_l_attr(r2),5$ ;if file opened, cont 
0098 30 02D8 320 bsbw  do_open open file 
00000000 02DB 321 long 0 suse dcl attr ; 
OD 00E6 C2 02 EO O2DF 322 5S: bbs #dev$v_trm,<fcb_b_fab+fab$l_dev>(r2),20$ ;if term, cont 
Q2E5 323 $rewind fcb_b rab(r2) srewind the file 
35 50 €9 O2EF 324 blbc r0,T0$ if tbc, fail 
02040000 8F C8 O2F2 325 208: bisl #<atr_m_currec!atr_m_virgin>,- ;set cur rec wron 
OC A2 O2F8 326 : fcb_l-attr(r2) ; and file in just opened state 
OC A2 00180000 8F CA O2FA 327 bicl #<atr_m_delete!atr_m_recur! = ;clear delete, recursion flag, 
0302 328 atr_m_comma_exp!atr_m_eof! = ;comma_expected, eof 
0302 329 atr_m_write>,fcb_l_attr(r2) ;and write 
20 A2 7C 0302 330 clrq fcb_q_rfa(r2) ;clear saved rfa 
1¢ OC A2. OB €1 O305 331 bbc #atr_v_stream,fcb_l_attr(r2),30$ ;if not stream, cont 
2E A2 «BS 030A 8 332 clrw fcb_w_column(r2) :clear column ; 
1 A2 14 A2 DO 030D 333 mov fcb_l_buf(r2),fcb_l_buf_pt(r2) ;reset buffer pointer 
18 A214 A2 DO 0312 334 movl fcb_l_buf(r2),fcb_l_buf_end(r2) ;reset buffer end 
50 01 9A 0317 335 movzbl #1,r0 ; :get initial line, page and prn 
30 A2 50 BO O31A 336 movw r0,fcb_w_line(r2) zinit Line number 
se fe 60 OU 3CtCSCSTE Os Sr movw r0,fcb_w_page(r2) ;init page number 
34 A2 50 dO 0322 338 movl r0,fcb_l_prn(r2) sinit prn 
04 0326 339 30$: ret : zreturn 
50 Q0000000'8F pO 0327 340 108: mov #pli$_rmsr,r0 ;set rms rab error 
0064 31 Oaee $05 brw fail zand fail 
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0331 44 ;+ 
333] 45 ; pliSspaceblock - space blocks in a pll file 
0331 46 ; this routine yoaces forward or backward a specified number of blocks in 
0331 47 ; a pli file. if the file is closed, it is opened with declare time attri- 
0331 348 ; butes and the block io environment attribute implied. the current block 
O33 $08 ; position in the filé is moved the requested amount. 
0331 351 ; inputs: 
O33) son 3 O(ap) = number of arguments (at least 2) 
Sas) was 3 4(ap) - address of file control block 
0331 354 ; 8(ap) = number of blocks to space 
tte $22 ; outputs: 
0331 56; none 
0331 357 ;-- 
000C 0331 358 sentry pli$spaceblock,“m<r2, r3> 
0032 30 0333 359 bsbw check_bis2 paras open file 
07 0C A2 O01 €0 0336 360 bbs #atr_v ae fcb_l attriras: “fs file opened, cont 
0038 30 0338 361 bsbw do_ op ben sopen F tite’ 
00400000 0O33— 362 . Long aye for blockio 
009A C2 O8 AC DO 0342 363 S$: movl (38), then. 4g rab+rab$L _phtstr2) ;set number of blocks to space 
0348 364 $space fcb_b_rab(r2 space the file 
0450 E9 Q352 365 bloc rd, ; sif lbc, fail 
50 01 00 0355 366 mov | #1,r0 ;set success 
04 0358 367 ret yreturn 
50 00000000'8F 00 0359 368 108: mov #pli$_rmsr,r0 ;set rms rab error 
003 31 0360 369 brw fail zand fail 
0363 370 
0363 371 _eenabl = Lsb 
0363 372 check_bis1: 
01 6C »D1 0363 373 papt (ap) ,#1 senought arguments? 
03 11 0366 374 _br 5$ zcont in common 
0368 375 check_bis2: 
02 6C D1 0368 376 cmpl tap) fe ;enough arguments? | 
04 18 0368 £377 S$: bgeq 10 if geq, yes, cont 
50 D4 Q36D 378 cl{rl rd. lat not enough args 
24 11 #O36F 379 brb fail zand fail 
52 04 AC DO 0371 £380 10$: mov lL 4(ap),r2 iget addr of fcb 
05 0375 381 b 3 
0376 382 -dsabl lsb 
0376 383 
0376 384 do_open: 
SS 66—)6 600 «605760 385 mov l $89} .°7 sget addr of parm 
6—€ 83 DO 0379 386 movl (r3)+,(sp) zset open attr 
52 DD O37C 387 pushl r2 :set eb A ned 
00000000'GF 02 FB Q37E 388 calls #2,g*pli$open ogen 
OC A2 O01 €0 0385 389 bbs #atr_v_opened, fcb_l _attr(r Re 108s Tif file still not open 
50 00000000'°8F D0 O38A 390 movl #pli$_dpen,r0 ;set open "failure 
0 11 0391 4 brb fail gand fail 
6 17 0393 35 10$: jmp (r3) return 
0395 39 : ; 
0B 12 0395 394 fail bneq 108. :if not enough parms 
50 00000000'°8F D0 0397 395 movl op 18 _para.r® set not enue n pares 
51 D4 Q39E 96 clrl r zset no fcb ad 
03 «11 baA8 97 brb 208 cont 
| a > she 98 10$: mov lL r2,r scopy fcb addr 
51 DD O3A 99 208: pushl ri zset fcb addr 
50 DD OQ3A7 400 pushi 0 sset error code 
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QO00000'8F ODD A9 = 401 ushl #pli$_error yset error condition 
00000000" oF 03 FB 3 AF ibe fails #3,9*°BLi$i0_error signal the condition 
04 0386 4 ret sreturn 
03B7 404 
0387 405 
03B7 406 .end 
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Psect synopsis 


Ge cman e ewes ecesces + 
! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
\, 2. 00000000 <¢ 0.) OO ¢ 0.) NOPIC USR CON ABS LCL N 
| 5A ABSS 000001C2 (¢ 450.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSH 
_PLISCODE 00000387 ¢ 951.) 02¢ 2.) PIC USR CON REL LCL 
es oo 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
00.05 00.34 
Command processing 98 00:00:00.58 00:00:01.95 
Pass 1 260 00:00:11.28 00:00:23.48 
Symbol table sort 0 00:00:01.30 00:00:02.47 
Pass 2 79 00:00:02.05 00:00:04.87 
Symbol table output 22 00:00:00.17 00:00:00.39 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 473 00:00:15.47 00:00:33.54 


The working set Limit was 1200 pages. 

60982 bytes (120 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 971 non-local and 25 Local symbols. 
406 source lines were read in Pass 1, producing 29 object records in Pass 2 

29 pages of virtual memory were used to define 26 macros. 


Macro Library name Macros defined 
-$255$DUA28: CPLIRTL.OBJIPLIRTMAC.MLB; 1 
“$255$DUA28: (SYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 2 


987 GETS were required to define 23 macros. 


| 

i 

| 

| 

Initialization 12, 00:00: 00:00:00. 
There were no errors, warnir.gjs or information messages. 
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